home *** CD-ROM | disk | FTP | other *** search
/ Urabon Golden Age Girl 2 / Urabon Golden Age Girl 2.iso / mac / 裏ガール２data / FAVORITE.DIR / 00009_SLIDE.ls < prev    next >
Encoding:
Text File  |  1995-01-18  |  615 b   |  23 lines
  1. on mouseDown
  2.   global myhand, qut
  3.   repeat while the stillDown
  4.     if rollOver(clickOn()) then
  5.       set the castNum of sprite clickOn() to the number of cast "dnSLIDE"
  6.     else
  7.       set the castNum of sprite clickOn() to the number of cast "SLIDE"
  8.     end if
  9.     updateStage()
  10.   end repeat
  11.   set qut to 0
  12.   set myhand to field "zSelected"
  13.   repeat with n = 1 to 12
  14.     if (line n of myhand = EMPTY) or (qut = 1) then
  15.       exit
  16.     end if
  17.     set showbook to line n of myhand
  18.     play frame 60 of movie showbook
  19.   end repeat
  20.   set the castNum of sprite clickOn() to the number of cast "SLIDE"
  21.   updateStage()
  22. end
  23.